home *** CD-ROM | disk | FTP | other *** search
/ ShareWare OnLine 2 / ShareWare OnLine Volume 2 (CMS Software)(1993).iso / comm1 / dnload30.zip / BOARDSET.WAS next >
Text File  |  1993-04-18  |  2KB  |  60 lines
  1.  
  2. ;****Board Setup Pro 2.0b (c) 1993, Michael Lee *******
  3. ;This script is used to setup BBS's that you will use with Download Pro 2.0
  4. ;All info must be entered correctly for the script to work properly.
  5. ;The settings are saved to a file called BOARD.INI and is saved in the directory
  6. ;you choose as your Prowin Path.
  7. ;************************************************
  8. string bbs_name,bbs_number1,bbs_number2,bbs_number3,user,pasword
  9. string prowin_path=$PWTASKPATH
  10. integer status 
  11. proc main
  12. loop:
  13. dialogbox 67 20 196 189 2 "Download Pro BBS Setup"
  14.    text  22 46 39 8 left "BBS Name:"
  15.    text  17 64 49 8 left "BBS Number1:"
  16.    text  9 115 57 8 left "UserId for BBS:"
  17.    text  28 132 38 11 left "Password:"
  18.    editbox 66 45 114 13 bbs_name 25
  19.    editbox 66 62 114 13 bbs_number1
  20.    editbox 66 78 114 12 BBS_NUMBER2 25
  21.    editbox 66 96 114 13 BBS_NUMBER3 25
  22.    editbox 66 113 114 13 user 25
  23.    editbox 66 131 114 13 pasword 25
  24.    pushbutton 20 166 40 14 "&OK" normal
  25.    pushbutton 77 166 40 14 "&ADD" normal
  26.    pushbutton 133 166 40 14 "&CANCEL" cancel
  27.    text  17 80 49 8 left "BBS Number2:"
  28.    text  17 98 49 8 left "BBS Number3:"
  29.    text  53 9 97 26 left "Please enter information for each BBS you call. Then select OK or ADD!"
  30. enddialog
  31.  
  32.   status=$DIALOG
  33.   while status !=1
  34.    if Status==10
  35.     call write_to
  36.      exitwhile
  37.    endif
  38.    if status==11
  39.     call write_to
  40.     destroydlg
  41.     goto loop
  42.    endif
  43.     status=$DIALOG
  44.   endwhile
  45. exit
  46. endproc
  47.  
  48. ;***
  49. ;This proc writes the information entered to Board.ini.
  50. ;***
  51. proc write_to
  52.    profilerd 
  53.       strfmt S1 "%s\board.ini" prowin_path
  54.     profilewr S1 bbs_name "bbs_number1" bbs_number1
  55.     profilewr S1 bbs_name "bbs_number2" bbs_number2
  56.     profilewr S1 bbs_name "bbs_number3" bbs_number3
  57.     profilewr S1 bbs_name "userid" user
  58.     profilewr S1 bbs_name "password" pasword
  59. endproc
  60.